# $Id: Type1.pm 124 2008-01-07 11:29:21Z asksol $
# $Source$
# $Author: asksol $
# $HeadURL: http://class-dot.googlecode.com/svn/trunk/t/010-std_1.x_tests/TestComplete/Type1.pm $
# $Revision: 124 $
# $Date: 2008-01-07 11:29:21 +0000 (Mon, 07 Jan 2008) $
package TestComplete::Type1;
use Class::Dot qw(-new :std);
extends qw(TestComplete::Base TestComplete::AlternateBase);

property in_type1 => isa_String();

my $CLOSURE;

sub BUILD {
    my ($self, $options_ref) = @_;

    $CLOSURE = 'built with Type1';

    return;
}

sub get_closure {
    return $CLOSURE;
}

1;

__END__


# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround
